﻿Public Class frmLlenar_Analistas
    Private analista As New cAnalistas
    Private Llenar_TI As New cDatos_Fijos
    Private resultado As DataSet

    Private Sub cmdEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnviar.Click
        analista.Codigo_Analista = Mid(cboTipo_Identificacion.Text, 1, 2) & txtNumero_Identificacion.Text
        analista.Codigo_Tipo_Identificacion = Mid(cboTipo_Identificacion.Text, 1, 2)
        analista.Numero_Identificacion = txtNumero_Identificacion.Text
        analista.Analista = txtAnalista.Text
        analista.Direccion = txtDireccion.Text
        analista.Telefono = txtTelefono.Text
        analista.Email = txtEmail.Text
        analista.Guardar()
        Close()
    End Sub

    Private Sub frmLlenar_Analistas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        resultado = Llenar_TI.Cargar("Ti")
        cboTipo_Identificacion.DataSource = resultado.Tables(0)
        cboTipo_Identificacion.ValueMember = resultado.Tables(0).Columns(0).ToString

        cboTipo_Identificacion.DisplayMember = resultado.Tables(0).Columns(1).ToString


        ' cboTipo_Identificacion.DisplayMember = "codigo_tipo_identificacion"
        'cboTipo_Identificacion.DisplayMember = "codigo"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'MsgBox(cboTipo_Identificacion.SelectedValue)
        MsgBox(resultado.Tables(0).Rows(cboTipo_Identificacion.SelectedIndex)(0).ToString())
    End Sub
End Class